unit OuterDefinition;

interface

type

TOuterDefinition = class
private
  fTableName: String;
  fKeyName: String;
public
  constructor Create(); overload;
  constructor Create(aTableName, aKeyName: String); overload;
  function getKeyName(): String;
  function getTableName(): String;
  procedure setKeyName(aVal: String);
  procedure setTableName(aVal: String);
end;

implementation

{ TOuterDefinition }

constructor TOuterDefinition.Create;
begin

end;

constructor TOuterDefinition.Create(aTableName, aKeyName: String);
  begin
  inherited Create;
  setTableName(aTableName);
  setKeyName(aKeyName);
  end;

function TOuterDefinition.getKeyName: String;
  begin
  Result := fKeyName;
  end;

function TOuterDefinition.getTableName: String;
  begin
  Result := fTableName;
  end;

procedure TOuterDefinition.setKeyName(aVal: String);
  begin
  fKeyName := aVal;
  end;

procedure TOuterDefinition.setTableName(aVal: String);
  begin
  fTableName := aVal;
  end;

end.
